From 1cda6fd33488c7759d332f9b5220399b0272f96f Mon Sep 17 00:00:00 2001 From: Vitalie Spinu Date: Sun, 6 Jan 2013 17:06:39 -0800 Subject: [PATCH] comint-send-input tiny change * lisp/comint.el (comint-send-input): Check size of buffer before waiting for process output, in case already accepted. --- lisp/ChangeLog | 5 +++++ lisp/comint.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7bfe901c38d..f99a6f272a8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-01-07 Vitalie Spinu (tiny change) + + * comint.el (comint-send-input): Check size of buffer before + waiting for process output, in case already accepted. (Bug#13290) + 2013-01-04 Michael Albinus * net/tramp-sh.el (tramp-set-file-uid-gid): UID and GID must be diff --git a/lisp/comint.el b/lisp/comint.el index 7bdf67f8503..eda73af3501 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -1847,9 +1847,9 @@ Similarly for Soar, Scheme, etc." (let ((echo-len (- comint-last-input-end comint-last-input-start))) ;; Wait for all input to be echoed: - (while (and (accept-process-output proc) - (> (+ comint-last-input-end echo-len) + (while (and (> (+ comint-last-input-end echo-len) (point-max)) + (accept-process-output proc) (zerop (compare-buffer-substrings nil comint-last-input-start -- 2.30.2